## Warning: Transformation introduced infinite values in continuous y-axis
CHINA$Deaths <- na.omit(CHINA$Deaths)
china_deaths <-CHINA %>% ggplot() + geom_col(aes(x=Reported,y=Deaths,fill=Deaths)) +
theme(axis.text.x = element_text(angle = 45)) +
labs(x="Date Reported",y="Log Deaths",title="COVID-19: Deaths by Date") +
scale_y_log10()
ggplotly(china_deaths)
## Warning: Transformation introduced infinite values in continuous y-axis
JHU_CHINA %>%
ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
theme(axis.text.x = element_text(angle = 45)) +
labs(title="China COVID-19: Accumulated Recoveries by Date",x="Date Reported",y="Total Cases") +
scale_fill_gradient(labels = scales::comma) + scale_y_log10()
JHU_CHINA %>%
ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
theme(axis.text.x = element_text(angle = 45)) +
labs(title="CHINAA COVID-19: Accumulated Recoveries by Date",x="Date Reported",y="Total Cases") + scale_y_continuous(labels = scales::comma) +
scale_fill_gradient(labels = scales::comma) + scale_y_log10()
## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.